home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
DISK1
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TVIEWMAILFORM
/
TVIEWMAILFORM.txt
Wrap
Text File
|
1999-09-10
|
7KB
|
261 lines
object ViewMailForm: TViewMailForm
Left = 49
Top = 149
Width = 551
Height = 312
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
Position = poDefaultPosOnly
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 543
Height = 67
Align = alTop
BevelOuter = bvNone
BorderStyle = bsSingle
Color = clWindow
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 3
Width = 32
Height = 13
Caption = 'From:'
end
object Label2: TLabel
Left = 8
Top = 19
Width = 32
Height = 13
Caption = 'Date:'
end
object Label3: TLabel
Left = 8
Top = 37
Width = 48
Height = 13
Caption = 'Subject:'
end
object From: TLabel
Left = 72
Top = 4
Width = 5
Height = 13
end
object Date: TLabel
Left = 72
Top = 19
Width = 5
Height = 13
end
object Subject: TLabel
Left = 72
Top = 34
Width = 5
Height = 13
end
end
object Memo: TStringsViewer
Left = 0
Top = 67
Width = 543
Height = 129
Align = alClient
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Style = []
TabOrder = 1
OnLinkClicked = MemoLink
end
object AttachmentPanel: TPanel
Left = 0
Top = 196
Width = 543
Height = 89
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
Visible = False
object Panel1: TPanel
Left = 0
Top = 0
Width = 543
Height = 22
Cursor = crVSplit
Align = alTop
Caption = 'Message Attachments'
TabOrder = 0
OnMouseDown = Panel1MouseDown
OnMouseUp = Panel1MouseUp
end
object AttachList: TListBox
Left = 0
Top = 22
Width = 442
Height = 67
Align = alClient
ItemHeight = 33
Style = lbOwnerDrawFixed
TabOrder = 1
OnDrawItem = AttachListDrawItem
end
object Panel3: TPanel
Left = 442
Top = 22
Width = 101
Height = 67
Align = alRight
TabOrder = 2
object ViewBtn: TBitBtn
Left = 6
Top = 6
Width = 89
Height = 25
Caption = 'View'
TabOrder = 0
OnClick = ViewBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
NumGlyphs = 2
end
object SaveBtn: TBitBtn
Left = 6
Top = 36
Width = 89
Height = 25
Caption = 'Save'
TabOrder = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
end
end
object Query3: TQuery
DatabaseName = 'Vistamail'
SQL.Strings = (
'select * from dbAtt'
'where PosAtt=:PosM')
Params.Data = {0100010004506F734D00030400000000000100}
Left = 66
Top = 217
object Query3Name: TStringField
FieldName = 'Name'
Size = 30
end
object Query3PosAtt: TIntegerField
FieldName = 'PosAtt'
Visible = False
end
end
object DataSource3: TDataSource
DataSet = Query3
Left = 98
Top = 221
end
object DataSource2: TDataSource
DataSet = Query2
Left = 316
Top = 233
end
object Query2: TQuery
DatabaseName = 'Vistamail'
SQL.Strings = (
'select * from dbadrmes'
'where PosA=:PosM')
Params.Data = {0100010004506F734D00030400010000000000}
Left = 320
Top = 241
object Query2PosA: TIntegerField
FieldName = 'PosA'
Visible = False
end
object Query2TipA: TIntegerField
FieldName = 'TipA'
Visible = False
end
object Query2Adress: TStringField
FieldName = 'Adress'
Size = 255
end
object Query2TimeZapis: TDateTimeField
FieldName = 'TimeZapis'
Visible = False
end
object Query2TimePost: TDateTimeField
FieldName = 'TimePost'
Visible = False
end
object Query2Sost: TIntegerField
FieldName = 'Sost'
Visible = False
end
end
object Query4: TQuery
DatabaseName = 'Vistamail'
SQL.Strings = (
'select * from dbtext'
'where PosT=:PosM'
'order by NomStr')
Params.Data = {0100010004506F734D00030400000000000000}
Left = 470
Top = 179
object Query4PosT: TIntegerField
FieldName = 'PosT'
Visible = False
end
object Query4NomStr: TIntegerField
FieldName = 'NomStr'
Visible = False
end
object Query4Stroka: TStringField
DisplayLabel = 'Text'
FieldName = 'Stroka'
Size = 255
end
end
object DataSource4: TDataSource
DataSet = Query4
Left = 510
Top = 183
end
end